home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / b-block1.lha / AutoLoader.s next >
Encoding:
Text File  |  1980-01-01  |  624 b   |  35 lines
  1. Drive    =    1
  2. Adr    =    $30000
  3. Sectors    =    18*11
  4. Offset    =    1254    ; Ab wo auf der Disk geladen wird
  5. WRITE    =    0
  6.     IF WRITE
  7.     AUTO    WSDRIVE\BOOT\0\2\CC\
  8.     ENDC
  9. boot:
  10.     dc.b    "DOS",0
  11.     dc.l    0,$370
  12.     move.l    $4.w,a6
  13.     move.w    #$0002,28(a1)
  14.     move.l    #Adr,40(a1)
  15.     move.l    #Offset*$200,44(a1)
  16.     move.l    #Sectors*$200,36(a1)
  17.     jsr    -456(a6)
  18.     move.w    #$0009,28(a1)
  19.     clr.l    36(a1)
  20.     jsr    -456(a6)
  21.     movem.l    d0-d7/a0-a6,-(a7)
  22.     jsr    ADR
  23.     movem.l    (a7)+,d0-d7/a0-a6
  24.     lea    dosname(pc),a1
  25.     jsr    -96(a6)
  26.     move.l    d0,a0
  27.     move.l    22(a0),a0
  28.     moveq    #0,d0
  29.     rts
  30. dosname:    dc.b    "dos.library",0
  31. end:        dcb.b    1024,0
  32. ;PRINTT
  33. ;PRINTV    end-boot
  34. ;PRINTT"DIESER WERT DARF $400 NICHT UEBERSTEIGEN!!"
  35.